home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / bbs / bbbbs85.lha / rexx / bbsArcSTOP.rexx < prev    next >
OS/2 REXX Batch file  |  1993-07-24  |  2KB  |  87 lines
  1. /* $VER: bbsArcSTOP.rexx 6.1 ⌐ 1993 Richard Lee Stockton (24.7.93)
  2. Lists archive processes by username and process, and allows abort.
  3.     copyright 1993 Richard Lee Stockton FREELY DISTRIBUTABLE
  4. */
  5.  
  6. scrn=''
  7. IF ADDRESS()='BAUD' THEN scrn='BAUD'
  8. numlost=''
  9. DO loop=1
  10.   num=make_req(numlist)
  11.   IF num=0 | p.num='' THEN ITERATE loop
  12.   temp='BBS_STOP_'p.num
  13.   temp2='ABORT'
  14.   x=Request(,,'DELETE any partially processed files?',,' DELETE ',' LEAVE ''EM ',scrn)
  15.   IF x='OKAY' THEN temp2='DELETE'
  16.   CALL SETCLIP(temp,temp2)
  17.   numlist=numlist num
  18. END
  19. EXIT
  20.  
  21.  
  22. make_req:
  23. ARG oldnums 
  24. text='Enter number of process to STOP\   (or enter BLANK to exit)\'
  25. c=0
  26. a=0
  27. p.=''
  28. DO i=1 TO 9
  29.   t=GETCLIP('BBS_QUICKIN'i)
  30.   IF t='' THEN ITERATE i
  31.   c=c+1
  32.   text=text'\'c'. QUICKIN Process  '
  33.   IF GETCLIP('BBS_STOP_QUICKIN'i)='' THEN text=text t
  34.   ELSE text=text 'ABORTED'
  35.   p.c='QUICKIN'i
  36. END
  37. DO i=1 TO 9
  38.   t=GETCLIP('BBS_QUICKOUT'i)
  39.   IF t='' THEN ITERATE i
  40.   c=c+1
  41.   text=text'\'c'. QUICKOUT Process '
  42.   IF GETCLIP('BBS_STOP_QUICKOUT'i)='' THEN text=text t
  43.   ELSE text=text 'ABORTED'
  44.   p.c='QUICKOUT'i
  45. END
  46. DO i=1 TO 9
  47.   t=GETCLIP('BBS_ALPHA'i)
  48.   IF t='' THEN ITERATE i
  49.   c=c+1
  50.   text=text'\'c'. Alpha FileList   '
  51.   IF GETCLIP('BBS_STOP_ALPHA'i)='' THEN text=text t
  52.   ELSE text=text 'ABORTED'
  53.   p.c='ALPHA'i
  54. END
  55. DO i=1 TO 9
  56.   t=GETCLIP('BBS_BROWSE'i)
  57.   IF t='' THEN ITERATE i
  58.   c=c+1
  59.   text=text'\'c'. Full Descriptions'
  60.   IF GETCLIP('BBS_STOP_BROWSE'i)='' THEN text=text t
  61.   ELSE text=text 'ABORTED'
  62.   p.c='BROWSE'i
  63. END
  64. DO i=1 TO 9
  65.   t=GETCLIP('BBS_MSGS'i)
  66.   IF t='' THEN ITERATE i
  67.   c=c+1
  68.   text=text'\'c'. Messages         '
  69.   IF GETCLIP('BBS_STOP_MSGS'i)='' THEN text=text t
  70.   ELSE text=text 'ABORTED'
  71.   p.c='MSGS'i
  72. END
  73. IF c>12 THEN c=12
  74. IF c=0 THEN
  75.   DO
  76.     text='- No archives are being processed -'
  77.     CALL Request(,,text,,,'EXIT',scrn)
  78.     EXIT
  79.   END
  80. ELSE x=Request(,,text,'',,'EXIT',scrn)
  81. IF x='' THEN EXIT
  82. IF x<1 | x>c | ~DATATYPE(x,'W') THEN RETURN 0
  83. RETURN x
  84.  
  85. /* bbsArcSTOP.rexx */
  86.  
  87.